﻿Public Class SigKayit
	Inherits Process

	Public Overrides Sub GenericEvent(ByVal e As ProcessEventArgs)
		Select Case e.EventType
			Case EventType.Initialize
				Start("Sigortalı kaydı", "Sigortalı bilgisini girin.")
				AddSigortali()
				StartBody()
				AddDataWindow()
				Buttons.Show("New")
			Case EventType.Shown
				DataWindow.AddGroup("Kimlik bilgileri", "kimlik;sno;pasaport;adi;soyadi")
				DataWindow.AddGroup("Genel bilgiler", "cins;baba;anne;medeni;uyr")
				DataWindow.AddGroup("Doğum bilgileri", "dtar;dsehir;dulke")
				DataWindow.AddGroup("İletişim bilgileri", "adr;adrsemt;adrsehir;tel;email")
				DataWindow.AddGroup("Meslek bilgileri", "meslek;egitim")
				DataWindow.AddGroup("Kayıt bilgileri", "islemtar*;kaykul*;rowid*")
			Case EventType.ValidateForm
				'Dim sgenel = (From g In db.sgenel Where 1 = 1) ' Where g.sno = CInt(Input("sigortali"))).FirstOrDefault
				Rs = Sigortali.SnoAra(Remote, If(IsNew, -1, Input("sigortali")))
				DataWindow.Recordset = Rs
				If IsNew Then DataWindow.Focus()
				Buttons.Show("Save.Reset")
				e.Result = True
		End Select
	End Sub

End Class
